home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 04 (1982-12)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 04 (1982-12)(Softdisk)(Side B).do / FILE CODE CHANGER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  29 lines
  1. 10  HOME : PRINT "INSTRUCTIONS (Y/N)? ";: GET YN$: IF YN$ < >"Y" GOTO 100
  2. 20  HOME : INVERSE : VTAB 1: PRINT "                                        ": NORMAL : SPEED= 125: PRINT  TAB( 2);"THIS PROGRAM MODIFIES DOS SO THE CODES": PRINT  TAB( 2);"SHOWING THE FILE TYPES CAN BE CHANGED"
  3. 30  PRINT  TAB( 2);"TO ANY PRINTABLE CHARACTER. ALSO, THE": PRINT  TAB( 2);"LOCK AND UNLOCK SYMBOLS CAN BE CHANGED."
  4. 40  PRINT : PRINT  TAB( 2);"AFTER MAKING THE CHANGES, A CATALOG OF": PRINT  TAB( 2);"THE DISK WILL SHOW THE NEW FILE CODE": PRINT  TAB( 2);"TYPES.  ONCE THIS IS ACCOMPLISHED,"
  5. 50  PRINT  TAB( 2);"A DISKETTE CAN BE INITIALIZED WITH THE": PRINT  TAB( 2);"NEW DOS ON IT."
  6. 60  PRINT : SPEED= 255: INVERSE : PRINT "                                        ": NORMAL 
  7. 70 X$ = "BY ... JOEL M. MCWILLIAMS"
  8. 80  PRINT : PRINT  TAB( (40 - LEN(X$))/2);X$
  9. 90  VTAB 22: HTAB 1: GET YN$: FOR I = 38 TO 0  STEP  -1: POKE 32,I: POKE 33,40 -I: HOME : NEXT 
  10. 100  VTAB 1: HTAB 7: PRINT "CATALOG FILE CODE CHANGES"
  11. 110  VTAB 4: HTAB 3: PRINT "APPLESOFT: ";: GET AC$: PRINT AC$
  12. 120  VTAB 5: HTAB 3: PRINT "INTEGER:   ";: GET IC$: PRINT IC$
  13. 130  VTAB 6: HTAB 3: PRINT "BINARY:    ";: GET BC$: PRINT BC$
  14. 140  VTAB 7: HTAB 3: PRINT "TEXT:      ";: GET TC$: PRINT TC$
  15. 150  VTAB 9: HTAB 3: PRINT "LOCKED:    ";: GET LC$: PRINT LC$
  16. 160  VTAB 10: HTAB 3: PRINT "UNLOCKED:  ";: GET UC$: PRINT UC$
  17. 170  LET MEM = ( PEEK(978) -( PEEK(978) >127) *256) *256 +2947
  18. 180  POKE MEM +2854, ASC(AC$) +128
  19. 190  POKE MEM +2853, ASC(IC$) +128
  20. 200  POKE MEM +2855, ASC(BC$) +128
  21. 210  POKE MEM +2852, ASC(TC$) +128
  22. 220  POKE MEM +1376, ASC(LC$) +128
  23. 230  POKE MEM +1369, ASC(UC$) +128
  24. 65530  REM 
  25. 65531  REM  ---------------------
  26. 65532  REM  - FILE CODE CHANGER -
  27. 65533  REM  -        BY ...     -
  28. 65534  REM  - JOEL M MCWILLIAMS -
  29. 65535  REM  ---------------------